home *** CD-ROM | disk | FTP | other *** search
/ Clickx 23 / Clickx 23.iso / Menu.dcr / 00014_start submenu.ls < prev    next >
Encoding:
Text File  |  2005-09-14  |  1.4 KB  |  46 lines
  1. global gPlatform, gGroep
  2.  
  3. on enterFrame
  4.   if gPlatform = "PC" then
  5.     groepen = getGroupsPC()
  6.   else
  7.     groepen = getGroupsMAC()
  8.   end if
  9.   algemeen = getAlgemeen()
  10.   groepPos = findID(groepen, gGroep)
  11.   if groepen[groepPos].bgImage <> EMPTY then
  12.     sprite(1).member = member(groepen[groepPos].bgImage)
  13.   else
  14.     sprite(1).member = member("submenu")
  15.   end if
  16.   member("titel_groep").text = groepen[groepPos].titel
  17.   member("titel_groep").fontSize = 14
  18.   if member("titel_groep").text = "Webtools: website b" then
  19.     member("titel_groep").text = "Webtools: websites bouwen"
  20.     member("titel_groep").fontSize = 11
  21.   end if
  22.   if member("titel_groep").text = "Webtools: fotos del" then
  23.     member("titel_groep").text = "Webtools: foto's delen"
  24.     member("titel_groep").fontSize = 11
  25.   end if
  26.   if member("titel_groep").text = "Flash: alternatieve" then
  27.     member("titel_groep").text = "Flash: alternatieven"
  28.     member("titel_groep").fontSize = 11
  29.   end if
  30.   if groepen[groepPos].slogan = EMPTY then
  31.     member("slogan").text = algemeen[1].slogan
  32.   else
  33.     member("slogan").text = groepen[groepPos].slogan
  34.   end if
  35.   if groepen[groepPos].kleurcaption = EMPTY then
  36.     member("caption").color = rgb("#000000")
  37.   else
  38.     member("caption").color = rgb(groepen[gGroep].kleurcaption)
  39.   end if
  40.   if groepen[groepPos].kleururl = EMPTY then
  41.     member("URL").color = rgb("#0A2A72")
  42.   else
  43.     member("URL").color = rgb(groepen[groepPos].kleururl)
  44.   end if
  45. end
  46.